Option Strict Off
Option Explicit On
Friend Class DLGupdating
	Inherits System.Windows.Forms.Form
	Private iArrayIndex As Short
	
	Private aCaptions As Object
	
	Public Sub init(ByRef sTitle As String, ByRef sMessage As String, ByRef cModal As Object)
		
		On Error Resume Next
		
		Text = sTitle
		
		LBLmessage.Text = sMessage
		
		Timer1.Enabled = True
		
		'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
		'UPGRADE_WARNING: Couldn't resolve default property of object aCaptions. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		aCaptions = New Object(){sTitle, sTitle & ".", sTitle & "..", sTitle & "..."}
		
		VB6.ShowForm(Me, cModal)
		
	End Sub
	
	Public Sub terminate()
		
		On Error Resume Next
		
		Timer1.Enabled = False
		
		Me.Close()
		
	End Sub
	
	Private Sub DLGupdating_LostFocus(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.LostFocus
		
		Activate()
		
	End Sub
	
	Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
		
		On Error Resume Next
		
		'UPGRADE_WARNING: Couldn't resolve default property of object aCaptions(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		Text = aCaptions(iArrayIndex)
		
		If iArrayIndex < UBound(aCaptions) Then
			
			iArrayIndex = iArrayIndex + 1
			
		Else
			
			iArrayIndex = 0
			
		End If
		
	End Sub
End Class